inherited FPermissao: TFPermissao
  Left = 277
  Top = 219
  Caption = 'Permiss'#227'o de Acesso'
  ClientHeight = 307
  ClientWidth = 486
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 486
    Height = 307
    object Label1: TLabel [0]
      Left = 9
      Top = 38
      Width = 88
      Height = 13
      Caption = 'Grupo de Usu'#225'rios'
    end
    object Label2: TLabel [1]
      Left = 9
      Top = 74
      Width = 35
      Height = 13
      Caption = 'Modulo'
    end
    object SBInsere1: TSpeedButton [2]
      Tag = 1
      Left = 230
      Top = 163
      Width = 23
      Height = 22
      Caption = '>'
      OnClick = SBInsere1Click
    end
    object SBInsereTudo: TSpeedButton [3]
      Tag = 1
      Left = 230
      Top = 130
      Width = 23
      Height = 22
      Caption = '>>'
      OnClick = SBInsereTudoClick
    end
    object SBRemove1: TSpeedButton [4]
      Tag = 1
      Left = 230
      Top = 199
      Width = 23
      Height = 22
      Caption = '<'
      OnClick = SBRemove1Click
    end
    object SBRemovetudo: TSpeedButton [5]
      Tag = 1
      Left = 230
      Top = 236
      Width = 23
      Height = 22
      Caption = '<<'
      OnClick = SBRemovetudoClick
    end
    object Label3: TLabel [6]
      Left = 10
      Top = 111
      Width = 76
      Height = 13
      Caption = 'Itens do Modulo'
    end
    object Label4: TLabel [7]
      Left = 261
      Top = 111
      Width = 72
      Height = 13
      Caption = 'Itens Liberados'
    end
    inherited Panel2: TPanel
      Width = 484
      inherited BtnIncluir: TBitBtn
        Visible = False
      end
      inherited BtnEditar: TBitBtn
        Left = 24
        Caption = '&Alterar'
      end
      inherited BtnSalvar: TBitBtn
        Left = 136
      end
      inherited BtnCancelar: TBitBtn
        Left = 248
      end
      inherited BtnExcluir: TBitBtn [4]
        Left = 283
        Visible = False
      end
      inherited BtnFechar: TBitBtn [5]
        Left = 384
      end
    end
    inherited Panel3: TPanel
      Top = 268
      Width = 484
      inherited SBAtualiza: TSpeedButton
        Visible = False
      end
      inherited BtnConsuta: TBitBtn
        Left = 18
        Visible = False
      end
      inherited DBNavigator1: TDBNavigator
        Hints.Strings = ()
        Visible = False
      end
    end
    object DBGrid1: TDBGrid
      Left = 10
      Top = 127
      Width = 212
      Height = 137
      DataSource = DSPermissao
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'PER_DESCRICAO'
          Title.Caption = 'Descri'#231#227'o'
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 261
      Top = 127
      Width = 212
      Height = 137
      DataSource = DSUsuPerm
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'PER_DESCRICAO'
          Title.Caption = 'Descri'#231#227'o'
          Visible = True
        end>
    end
    object RxDBLCNivel: TRxDBLookupCombo
      Tag = 1
      Left = 9
      Top = 52
      Width = 145
      Height = 21
      DropDownCount = 8
      LookupField = 'NIV_CODIGO'
      LookupDisplay = 'NIV_NOME'
      LookupSource = DSUNivel
      TabOrder = 4
      OnChange = RxDBLCNivelChange
    end
    object RxDBLCModulo: TRxDBLookupCombo
      Left = 9
      Top = 88
      Width = 145
      Height = 21
      DropDownCount = 8
      LookupField = 'PER_MODULO'
      LookupDisplay = 'PER_MODULO'
      LookupSource = DSModulo
      TabOrder = 5
      OnChange = RxDBLCModuloChange
    end
    object BitBtn1: TBitBtn
      Left = 384
      Top = 40
      Width = 75
      Height = 25
      Caption = 'Novo'
      TabOrder = 6
      OnClick = BitBtn1Click
    end
  end
  inherited SQLCadastro: TSQLClientDataSet
    CommandText = 'select * from  NIVELPERMISSAO'
    Left = 286
    Top = 272
  end
  inherited DSCadastro: TDataSource
    Left = 319
    Top = 272
  end
  object DSUNivel: TDataSource
    DataSet = SQLNivel
    Left = 217
    Top = 34
  end
  object DSPermissao: TDataSource
    DataSet = SQLPermissao
    Left = 144
    Top = 155
  end
  object DSUsuPerm: TDataSource
    DataSet = SQLUsuPerm
    Left = 336
    Top = 171
  end
  object DSModulo: TDataSource
    DataSet = SQLModulo
    Left = 208
    Top = 91
  end
  object SQLNivel: TSQLClientDataSet
    CommandText = 'select * from NIVEL'
    Aggregates = <>
    AutoCalcFields = False
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    BeforePost = SQLCadastroBeforePost
    AfterPost = SQLCadastroAfterPost
    AfterCancel = SQLCadastroAfterCancel
    AfterDelete = SQLCadastroAfterDelete
    OnReconcileError = SQLCadastroReconcileError
    DBConnection = DMGeral.SQLConnection
    Left = 185
    Top = 35
  end
  object SQLModulo: TSQLClientDataSet
    Active = True
    CommandText = 'select distinct Per_Modulo From permissao'
    Aggregates = <>
    AutoCalcFields = False
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    BeforePost = SQLCadastroBeforePost
    AfterPost = SQLCadastroAfterPost
    AfterCancel = SQLCadastroAfterCancel
    AfterDelete = SQLCadastroAfterDelete
    OnReconcileError = SQLCadastroReconcileError
    DBConnection = DMGeral.SQLConnection
    Left = 175
    Top = 91
  end
  object SQLPermissao: TSQLClientDataSet
    CommandText = 'select  * from Permissao'#13#10
    Aggregates = <>
    AutoCalcFields = False
    Options = [poAllowCommandText, poRetainServerOrder]
    ObjectView = True
    Params = <>
    BeforePost = SQLCadastroBeforePost
    AfterPost = SQLCadastroAfterPost
    AfterCancel = SQLCadastroAfterCancel
    AfterDelete = SQLCadastroAfterDelete
    OnReconcileError = SQLCadastroReconcileError
    DBConnection = DMGeral.SQLCTransacao
    Left = 111
    Top = 155
  end
  object SQLUsuPerm: TSQLClientDataSet
    CommandText = 
      'select Nivel_Per_Permissao,Per_descricao from NivelPermissao lef' +
      't join Permissao  on Nivel_Per_Permissao =  Per_Codigo  ;'#13#10#13#10
    Aggregates = <>
    AutoCalcFields = False
    Options = [poAllowCommandText, poRetainServerOrder]
    ObjectView = True
    Params = <>
    BeforePost = SQLCadastroBeforePost
    AfterPost = SQLCadastroAfterPost
    AfterCancel = SQLCadastroAfterCancel
    AfterDelete = SQLCadastroAfterDelete
    OnReconcileError = SQLCadastroReconcileError
    DBConnection = DMGeral.SQLCTransacao
    Left = 303
    Top = 171
  end
end
